home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / grafik / amicad / install english < prev    next >
Text File  |  1998-04-26  |  8KB  |  274 lines
  1. ;------------------------------------------------------------------------
  2. ; Installation script for AmiCAD
  3. ;
  4. ; $VER: AmiCAD-Install 1.1 (03.21.98)
  5. ;
  6. ; (C)1997-1998 R.Florac
  7.  
  8. (set #AmiCADdestdir-help "A directory named AmiCAD will be created, if it doesn't allready exists, at the place you'll choose")
  9.  
  10. (set #destination
  11.     (expandpath
  12.     (askdir
  13.         (prompt "Where do you want to install the AmiCAD drawer?")
  14.         (help #AmiCADdestdir-help)
  15.         (default @default-dest)
  16.         (disk)
  17.     )
  18.     )
  19. )
  20.  
  21. (set @default-dest (tackon #destination "AmiCAD"))
  22.  
  23. (if (= 0 (askbool
  24.     (prompt "Destination directory for AmiCAD\nwill be "@default-dest)
  25.     (choices "Continue" "Stop")
  26.     (help "If the specified directory doesn't agree, choose 'Stop': you'll have to restart this installer script and choose another directory for destination.")
  27.     ))
  28.     (exit (quiet))
  29. )
  30.  
  31. (makedir (tackon @default-dest "Library"))
  32. (makedir (tackon @default-dest "Sheets") (infos))
  33. (makedir (tackon @default-dest "Clips"))
  34. (makedir (tackon @default-dest "ARexx"))
  35.  
  36. (copyfiles
  37.     (source "")
  38.     (dest @default-dest)
  39.     (pattern "AmiCAD#?")
  40.     (prompt "Choose the files you want to copy")
  41.     (help (cat "Select the files you want to copy, only the marked files will be copied.\nAmiCAD is the program file.\nAmiCAD.keys is the file where you are stored the definitions of macros keys.\n"
  42.     "AmiCAD.prefs is the file where are stored the preferences.\nAmiCAD.palette is a preferences file which contains only a black screen background palette (load it with the Preferences/configuration menu to try it)."))
  43.     (confirm)
  44.     (infos)
  45. )
  46.  
  47. (delete (tackon @default-dest "AmiCAD.prefs"))
  48. (copyfiles
  49.     (source "prefs.english")
  50.     (dest @default-dest)
  51. )
  52. (rename (tackon @default-dest "prefs.english") (tackon @default-dest "AmiCAD.prefs"))
  53.  
  54. (copyfiles
  55.     (source "Bibliothèques")
  56.     (dest (tackon @default-dest "Library"))
  57.     (pattern "#?")
  58.     (prompt "Choose the symbols files to copy\nThe format of this files have changed, so replace your old library files.")
  59.     (help "Select the files you want to copy, they are symbols files, AmiCAD use them to draw schematics.")
  60.     (confirm)
  61.     (infos)
  62. )
  63.  
  64. (copyfiles
  65.     (source "Clips_english")
  66.     (dest (tackon @default-dest "Clips"))
  67.     (pattern "#?")
  68.     (prompt "Choose the clip files to copy")
  69.     (help "Select the files you want to copy, they are clip files, defined with AmiCAD.\nThey can be used to draw some current symbols not yet defined in the libraries.\nYou shall be able to define your own clips with AmiCAD.")
  70.     (confirm)
  71.     (infos)
  72. )
  73.  
  74. (copyfiles
  75.     (source "ARexx_english")
  76.     (dest (tackon @default-dest "ARexx"))
  77.     (pattern "#?")
  78.     (prompt "Choose the ARexx scripts you want to copy\n")
  79.     (help "Select the files you want to copy.\nThe contents of this files are macro-commands, they can be used with AmiCAD.")
  80.     (confirm)
  81.     (infos)
  82. )
  83.  
  84. (copyfiles
  85.     (source "Schémas")
  86.     (dest (tackon @default-dest "Sheets"))
  87.     (pattern "#?")
  88.     (prompt "Choose the sheets files you want to copy\n")
  89.     (help "Select the files you want to copy, they are examples files obtained with AmiCAD.")
  90.     (confirm)
  91.     (infos)
  92. )
  93.  
  94. (tooltype
  95.     (prompt "Set AmiCAD Libs Tooltypes")
  96.     (dest (tackon @default-dest "AmiCAD"))
  97.     (settooltype "LIBS" (tackon @default-dest "library"))
  98. )
  99.  
  100. (tooltype
  101.     (prompt "Set AmiCAD Clips Tooltype")
  102.     (dest (tackon @default-dest "AmiCAD"))
  103.     (settooltype "Clips" (tackon @default-dest "Clips"))
  104. )
  105.  
  106. (set msg_welcome "LOAD(\"Sheets/Logo\"):MESSAGE(\"Welcome on AmiCAD\"+CHR(10)+\"the electronics editor\"+CHR(10)+\"for Amiga computer.\")")
  107. (tooltype
  108.     (prompt "Set AmiCAD Macro Tooltypes")
  109.     (dest (tackon @default-dest "AmiCAD"))
  110.     (settooltype "MACRO" msg_welcome)
  111. )
  112.  
  113. (set catalogue 32)
  114. (if (= @language "français") (set catalogue 1))
  115. (if (= @language "deutsch") (set catalogue 2))
  116. (if (= @language "ÃeÓtina") (set catalogue 4))
  117. (if (= @language "español") (set catalogue 8))
  118. (if (= @language "italiano") (set catalogue 16))
  119. (set catalogues
  120.     (askoptions
  121.         (prompt "Select the catalog you want to install")
  122.         (help "The catalog of your country is the one you have to copy.\nThe english catalogs are for library files.")
  123.         (choices "Français" "Deutsch" "Czech" "Español" "Italiano" "english")
  124.         (default catalogue)
  125.     )
  126. )
  127.  
  128. (if (= (BITAND catalogues 1) 1)
  129.     (   (makedir (tackon @default-dest "Catalogs"))
  130.     (copyfiles
  131.         (prompt "Copying the french catalog")
  132.         (source ("Catalogs/français"))
  133.         (dest   (tackon @default-dest "catalogs/français"))
  134.         (all)
  135.     )
  136.     )
  137. )
  138.  
  139. (if (= (BITAND catalogues 2) 2)
  140.     (   (makedir (tackon @default-dest "Catalogs"))
  141.     (copyfiles
  142.         (prompt "Copying the deutsch catalog")
  143.         (source ("Catalogs/deutsch"))
  144.         (dest   (tackon @default-dest "catalogs/deutsch"))
  145.         (all)
  146.     )
  147.     )
  148. )
  149.  
  150. (if (= (BITAND catalogues 4) 4)
  151.     (   (makedir (tackon @default-dest "Catalogs"))
  152.     (copyfiles
  153.         (prompt "Copying the czech catalog")
  154.         (source ("Catalogs/ÃeÓtina"))
  155.         (dest   (tackon @default-dest "catalogs/ÃeÓtina"))
  156.         (all)
  157.     )
  158.     )
  159. )
  160.  
  161. (if (= (BITAND catalogues 8) 8)
  162.     (   (makedir (tackon @default-dest "Catalogs"))
  163.     (copyfiles
  164.         (prompt "Copying the spanish catalog")
  165.         (source ("Catalogs/español"))
  166.         (dest   (tackon @default-dest "catalogs/español"))
  167.         (all)
  168.     )
  169.     )
  170. )
  171.  
  172. (if (= (BITAND catalogues 16) 16)
  173.     (   (makedir (tackon @default-dest "Catalogs"))
  174.     (copyfiles
  175.         (prompt "Copying the italian catalogs")
  176.         (source ("Catalogs/italiano"))
  177.         (dest   (tackon @default-dest "catalogs/italiano"))
  178.         (all)
  179.     )
  180.     )
  181. )
  182.  
  183. (if (= (BITAND catalogues 32) 32)
  184.     (   (makedir (tackon @default-dest "Catalogs"))
  185.     (copyfiles
  186.         (prompt "Copying the english catalogs")
  187.         (source ("Catalogs/english"))
  188.         (dest   (tackon @default-dest "catalogs/english"))
  189.         (all)
  190.     )
  191.     )
  192. )
  193.  
  194. ;****************************************************************************
  195. ; Copy of the catalogs sources **********************************************
  196. ;****************************************************************************
  197. (set catalogues
  198.     (askbool
  199.         (prompt "Do you want to copy the catalog sources files?")
  200.         (help "The sources files of the catalog are only needed if you want to create a catalog file for a new country (not yet done).")
  201.         (default 0)
  202.     )
  203. )
  204.  
  205.  
  206. (if (= catalogues 1)
  207.     (   (set sources
  208.         (askoptions
  209.         (prompt "Select the catalogs sources you want to install")
  210.         (help "The sources files of the catalog are only needed if you want to create a catalog file for a new country (not yet done).")
  211.         (choices "French" "Deutsch" "Czech" "Italiano" "english")
  212.         (default catalogue)
  213.         )
  214.     )
  215.     (if (= (BITAND sources 1) 1)
  216.         (   (makedir (tackon @default-dest "Catalogs"))
  217.         (copyfiles
  218.             (prompt "Copying the french source catalog")
  219.             (source ("Catalogs"))
  220.             (pattern ("#?.(français.ct|cd)"))
  221.             (dest   (tackon @default-dest "catalogs"))
  222.             (files)
  223.         )
  224.         )
  225.     )
  226.     (if (= (BITAND sources 2) 2)
  227.         (   (makedir (tackon @default-dest "Catalogs"))
  228.         (copyfiles
  229.             (prompt "Copying the deutsch source catalog")
  230.             (source ("Catalogs"))
  231.             (pattern ("#?.(deutsch.ct|cd)"))
  232.             (dest   (tackon @default-dest "catalogs"))
  233.             (files)
  234.         )
  235.         )
  236.     )
  237.     (if (= (BITAND sources 4) 4)
  238.         (   (makedir (tackon @default-dest "Catalogs"))
  239.         (copyfiles
  240.             (prompt "Copying the czech source catalog")
  241.             (source ("Catalogs"))
  242.             (pattern ("#?.(ÃeÓtina.ct|cd)"))
  243.             (dest   (tackon @default-dest "catalogs"))
  244.             (files)
  245.         )
  246.         )
  247.     )
  248.     (if (= (BITAND sources 8) 8)
  249.         (   (makedir (tackon @default-dest "Catalogs"))
  250.         (copyfiles
  251.             (prompt "Copying the italian source catalog")
  252.             (source ("Catalogs"))
  253.             (pattern ("#?.(italiano.ct|cd)"))
  254.             (dest   (tackon @default-dest "catalogs"))
  255.             (files)
  256.         )
  257.         )
  258.     )
  259.     (if (= (BITAND sources 16) 16)
  260.         (   (makedir (tackon @default-dest "Catalogs"))
  261.         (copyfiles
  262.             (prompt "Copying the english source catalogs")
  263.             (source ("Catalogs"))
  264.             (pattern ("#?.(english.ct|cd)"))
  265.             (dest   (tackon @default-dest "catalogs"))
  266.             (files)
  267.         )
  268.         )
  269.     )
  270.     )
  271. )
  272.  
  273. (exit)
  274.